Grid mit Variantenschnellzugriff (Menü)
Dies ist eine andere Version mit der ein Varianten-Schnellzugriff in einem ALV-Grid realisiert wurde. Dieses Programm verwaltet vier Grids und in jedem Grid werden die vorhandenen Varianten in zwei Menüs angezeigt: System- und Benutzervarianten. Der Name der aktuell ausgewählten Variante wird dabei im jeweiligen Menü angezeigt.
Screenshot
Erklärung
Die beiden Events, die für die Umsetzung maßgeblich beteiligt sind: TOOLBAR und MENU_BUTTON.
Im Event TOOLBAR werden die Menüs erstellt. In MENU_BUTTON werden die zugehörigen Untermenüs aufgebaut, wenn der Benutzer auf einen Menu-Button geklickt hat. Die Menüs in der Toolbar werden also erst zum Zeitpunkt des Anklickens aufgebaut.
Links die globalen Varianten, rechts Benutzervarianten
Coding
*&---------------------------------------------------------------------* *& Report ZZ_GRID_VARIANT_MENU *&---------------------------------------------------------------------* ***_________________________________*** *** *** *** https://tricktresor.com *** ***_________________________________*** *** *** * BESCHREIBUNG * ============ * Das Programm enthält eine Klasse, mit deren Hilfe vier durch einen * Splitter getrennte ALV-Grids angezeigt werden * Es können Varianten abgespeichert werden, die dann als Schnellzugriff * mit einem Menü in der Toolbar aktiviert werden. * DYNPRO 100 * ========== * Dynpro 100 muss angelegt werden. * Es muss einen CustomContainer mit Namen CONTAINER enthalten * Der Status "100" muss angelegt werden. Die Funktionstaste F3 muss * mit dem Funktionscode BACK belegt werden. * DYNPRO-ABLAUFLOGIK * ================== * PROCESS BEFORE OUTPUT. * MODULE pbo. * * PROCESS AFTER INPUT. * MODULE pai. REPORT zz_grid_variant. *** Class for event receiver CLASS lcl_event_receiver DEFINITION DEFERRED. *** global data DATA gr_grid1 TYPE REF TO lcl_event_receiver. DATA gr_grid2 TYPE REF TO lcl_event_receiver. DATA gr_grid3 TYPE REF TO lcl_event_receiver. DATA gr_grid4 TYPE REF TO lcl_event_receiver. DATA gv_matnr TYPE matnr. DATA gt_mara TYPE STANDARD TABLE OF mara. DATA gt_marc TYPE STANDARD TABLE OF marc. DATA gt_mard TYPE STANDARD TABLE OF mard. DATA gt_mvke TYPE STANDARD TABLE OF mvke. DATA gr_cc TYPE REF TO cl_gui_custom_container. DATA gr_splitter TYPE REF TO cl_gui_splitter_container. DATA gr_cont1 TYPE REF TO cl_gui_container. DATA gr_cont2 TYPE REF TO cl_gui_container. DATA gr_cont3 TYPE REF TO cl_gui_container. DATA gr_cont4 TYPE REF TO cl_gui_container. SELECT-OPTIONS s_matnr FOR gv_matnr. *----------------------------------------------------------------------* * CLASS lcl_event_receiver DEFINITION *----------------------------------------------------------------------* CLASS lcl_event_receiver DEFINITION. PUBLIC SECTION. DATA gr_grid TYPE REF TO cl_gui_alv_grid. DATA gr_cont TYPE REF TO cl_gui_container. DATA gs_variant TYPE disvariant. DATA gs_layout TYPE lvc_s_layo. DATA gv_table TYPE text80. DATA ls_toolbar TYPE stb_button. DATA ls_variant TYPE disvariant. *** Variants DATA lt_ltdx TYPE STANDARD TABLE OF ltdx. *** Variant texts DATA lt_ltdxt TYPE STANDARD TABLE OF ltdxt. METHODS: *** constructor constructor IMPORTING i_handle TYPE c i_container TYPE REF TO cl_gui_container i_title TYPE lvc_title i_table TYPE c, *** event for menu button handle_menu_button FOR EVENT menu_button OF cl_gui_alv_grid IMPORTING e_object e_ucomm sender, *** event for double click handle_double_click FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row e_column es_row_no sender, *** event for adding buttons to toolbar handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive sender, *** event for pressed buttons handle_user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm sender. ENDCLASS. "lcl_event_receiver DEFINITION *----------------------------------------------------------------------* * CLASS lcl_event_receiver IMPLEMENTATION *----------------------------------------------------------------------* CLASS lcl_event_receiver IMPLEMENTATION. METHOD constructor. FIELD-SYMBOLS <outtab> TYPE STANDARD TABLE. gv_table = i_table. ASSIGN (gv_table) TO <outtab>. CHECK sy-subrc = 0. *** Create ALV Grid CREATE OBJECT gr_grid EXPORTING i_parent = i_container. *** Set variant CLEAR gs_variant. gs_variant-report = sy-repid. gs_variant-handle = i_handle. gs_variant-username = sy-uname. *** Layout gs_layout-grid_title = i_title. gs_layout-no_toolbar = ' '. *** Set display CALL METHOD gr_grid->set_table_for_first_display EXPORTING i_structure_name = i_handle is_variant = gs_variant i_save = 'A' i_default = 'X' is_layout = gs_layout CHANGING it_outtab = <outtab> EXCEPTIONS OTHERS = 4. **** Create event handler for grid SET HANDLER handle_user_command handle_toolbar handle_double_click handle_menu_button FOR gr_grid. *** set toolbar interactive CALL METHOD gr_grid->set_toolbar_interactive. ENDMETHOD. "constructor METHOD handle_double_click. FIELD-SYMBOLS <outtab> TYPE STANDARD TABLE. FIELD-SYMBOLS <outwa> TYPE ANY. FIELD-SYMBOLS <value> TYPE ANY. ASSIGN (gv_table) TO <outtab>. CHECK sy-subrc = 0. CASE e_column. WHEN 'MATNR'. READ TABLE <outtab> ASSIGNING <outwa> INDEX es_row_no-row_id. IF sy-subrc = 0. ASSIGN COMPONENT e_column OF STRUCTURE <outwa> TO <value>. IF sy-subrc = 0. SET PARAMETER ID 'MAT' FIELD <value>. CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN. ENDIF. ENDIF. ENDCASE. ENDMETHOD. "handle_double_click METHOD handle_toolbar. FIELD-SYMBOLS <ltdx> TYPE ltdx. FIELD-SYMBOLS <ltdxt> TYPE ltdxt. **** Get actual variant CALL METHOD sender->get_variant IMPORTING es_variant = ls_variant. *** Read existing variants SELECT * FROM ltdx INTO TABLE lt_ltdx UP TO 10 ROWS WHERE relid = 'LT' AND report = gs_variant-report AND handle = gs_variant-handle AND srtf2 = 0 AND ( username = space OR username = sy-uname ) ORDER BY username variant. IF sy-subrc = 0. *** add Separator to toolbar ls_toolbar-function = 'DUMMY'. ls_toolbar-butn_type = '3'. APPEND ls_toolbar TO e_object->mt_toolbar. *** Get variant texts SELECT * FROM ltdxt INTO TABLE lt_ltdxt FOR ALL ENTRIES IN lt_ltdx WHERE relid = 'LT' AND report = gs_variant-report AND handle = gs_variant-handle AND variant = lt_ltdx-variant AND langu = sy-langu. *** Check if there are global variants... READ TABLE lt_ltdx TRANSPORTING NO FIELDS WITH KEY username = space. IF sy-subrc = 0. *** add menu "GLOBAL" to toolbar CLEAR ls_toolbar. IF ls_variant-variant IS NOT INITIAL AND ls_variant-variant(1) = '/'. *** If variant is actually set: Display name of variant READ TABLE lt_ltdxt ASSIGNING <ltdxt> WITH KEY username = space variant = ls_variant-variant. IF sy-subrc = 0. ls_toolbar-text = <ltdxt>-text. ENDIF. ENDIF. ls_toolbar-function = 'GLOBAL'. ls_toolbar-icon = icon_bw_gis. ls_toolbar-butn_type = '2'. APPEND ls_toolbar TO e_object->mt_toolbar. ENDIF. *** Check if there are user specific variants... READ TABLE lt_ltdx TRANSPORTING NO FIELDS WITH KEY username = sy-uname. IF sy-subrc = 0. *** add menu "USER SPECIFIC" to toolbar CLEAR ls_toolbar. IF ls_variant-variant IS NOT INITIAL AND ls_variant-variant(1) <> '/'. *** If variant is actually set: Display name of variant READ TABLE lt_ltdxt ASSIGNING <ltdxt> WITH KEY username = sy-uname variant = ls_variant-variant. IF sy-subrc = 0. ls_toolbar-text = <ltdxt>-text. ENDIF. ENDIF. ls_toolbar-function = 'USER'. ls_toolbar-icon = icon_usergroup. ls_toolbar-butn_type = '2'. APPEND ls_toolbar TO e_object->mt_toolbar. ENDIF. ENDIF. ENDMETHOD. "handle_toolbar METHOD handle_user_command. *** Set chosen variant FIELD-SYMBOLS <ltdx> TYPE ltdx. FIELD-SYMBOLS <ltdxt> TYPE ltdxt. *** data DATA lv_user_specific TYPE c. DATA ls_variant TYPE disvariant. DATA ls_stable TYPE lvc_s_stbl. DATA lt_fieldcat TYPE lvc_t_fcat. DATA lt_sort TYPE lvc_t_sort. DATA lt_filter TYPE lvc_t_filt. DATA ls_layout TYPE lvc_s_layo. *** Variant CLEAR ls_variant. ls_variant-variant = e_ucomm. SHIFT ls_variant-variant LEFT BY 1 PLACES. ls_variant-report = gs_variant-report. ls_variant-handle = gs_variant-handle. IF ls_variant-variant(1) <> '/'. ls_variant-username = sy-uname. lv_user_specific = 'X'. ENDIF. CALL METHOD sender->get_frontend_fieldcatalog IMPORTING et_fieldcatalog = lt_fieldcat. CALL FUNCTION 'LVC_VARIANT_SELECT' EXPORTING i_dialog = space i_user_specific = lv_user_specific it_default_fieldcat = lt_fieldcat IMPORTING et_fieldcat = lt_fieldcat et_sort = lt_sort et_filter = lt_filter CHANGING cs_variant = ls_variant EXCEPTIONS wrong_input = 1 fc_not_complete = 2 not_found = 3 program_error = 4 data_missing = 5 OTHERS = 6. IF sy-subrc = 0. CALL METHOD sender->set_variant( ls_variant ). CALL METHOD sender->set_frontend_fieldcatalog( lt_fieldcat ). CALL METHOD sender->set_filter_criteria( lt_filter ). CALL METHOD sender->set_sort_criteria( lt_sort ). ls_stable = 'XX'. CALL METHOD sender->refresh_table_display EXPORTING is_stable = ls_stable i_soft_refresh = space. ENDIF. ENDMETHOD. "handle_user_command METHOD handle_menu_button. DATA lv_fcode TYPE ui_func. DATA lv_text TYPE gui_text. DATA lv_disable TYPE c. DATA lv_checked TYPE c. DATA lv_username TYPE syuname. FIELD-SYMBOLS <ltdx> TYPE ltdx. FIELD-SYMBOLS <ltdxt> TYPE ltdxt. CASE e_ucomm. WHEN 'GLOBAL'. lv_username = space. WHEN 'USER'. lv_username = sy-uname. WHEN OTHERS. EXIT. ENDCASE. *** Get actual variant CALL METHOD sender->get_variant IMPORTING es_variant = ls_variant. LOOP AT lt_ltdx ASSIGNING <ltdx> WHERE username = lv_username. *... get variant text READ TABLE lt_ltdxt ASSIGNING <ltdxt> WITH KEY variant = <ltdx>-variant. *... set menu entry CLEAR ls_toolbar. lv_fcode = '$'. lv_fcode+1 = <ltdx>-variant. *... set text IF <ltdxt> IS ASSIGNED. lv_text = <ltdxt>-text. ELSE. lv_text = <ltdx>-variant. ENDIF. *... mark and disable actual variant IF ls_variant-variant = <ltdx>-variant. lv_disable = 'X'. lv_checked = 'X'. ELSE. lv_disable = space. lv_checked = space. ENDIF. *... add menu entry to menu CALL METHOD e_object->add_function EXPORTING disabled = lv_disable checked = lv_checked fcode = lv_fcode text = lv_text. ENDLOOP. ENDMETHOD. "lcl_my_event_handler ENDCLASS. "lcl_event_receiver IMPLEMENTATION *** _______________________________________________________ *** *** *** *** START OF PROGRAM *** _______________________________________________________ *** *** *** START-OF-SELECTION. SELECT * FROM mara INTO TABLE gt_mara UP TO 30 ROWS WHERE matnr IN s_matnr. SELECT * FROM marc INTO TABLE gt_marc UP TO 30 ROWS WHERE matnr IN s_matnr. SELECT * FROM mard INTO TABLE gt_mard UP TO 30 ROWS WHERE matnr IN s_matnr. SELECT * FROM mvke INTO TABLE gt_mvke UP TO 30 ROWS WHERE matnr IN s_matnr. CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module PBO OUTPUT *&---------------------------------------------------------------------* MODULE pbo OUTPUT. SET PF-STATUS '100'. SET TITLEBAR '100'. CLEAR sy-ucomm. IF gr_cc IS INITIAL. CREATE OBJECT gr_cc EXPORTING container_name = 'CONTAINER'. ENDIF. IF gr_splitter IS INITIAL. CREATE OBJECT gr_splitter EXPORTING parent = gr_cc rows = 4 columns = 1. CALL METHOD gr_splitter->get_container EXPORTING row = 1 column = 1 RECEIVING container = gr_cont1. CALL METHOD gr_splitter->get_container EXPORTING row = 2 column = 1 RECEIVING container = gr_cont2. CALL METHOD gr_splitter->get_container EXPORTING row = 3 column = 1 RECEIVING container = gr_cont3. CALL METHOD gr_splitter->get_container EXPORTING row = 4 column = 1 RECEIVING container = gr_cont4. ENDIF. IF gr_grid1 IS INITIAL. CREATE OBJECT gr_grid1 EXPORTING i_handle = 'MARA' i_container = gr_cont1 i_title = 'Materialstamm' i_table = 'GT_MARA'. ENDIF. IF gr_grid2 IS INITIAL. CREATE OBJECT gr_grid2 EXPORTING i_handle = 'MARD' i_container = gr_cont2 i_title = 'Tabelle MARD' i_table = 'GT_MARD'. ENDIF. IF gr_grid3 IS INITIAL. CREATE OBJECT gr_grid3 EXPORTING i_handle = 'MARC' i_container = gr_cont3 i_title = 'Tabelle MARC' i_table = 'GT_MARC'. ENDIF. IF gr_grid4 IS INITIAL. CREATE OBJECT gr_grid4 EXPORTING i_handle = 'MVKE' i_container = gr_cont4 i_title = 'Tabelle MVKE' i_table = 'GT_MVKE'. ENDIF. ENDMODULE. " PBO OUTPUT *&---------------------------------------------------------------------* *& Module PAI INPUT *&---------------------------------------------------------------------* MODULE pai INPUT. CASE sy-ucomm. WHEN 'BACK'. SET SCREEN 0. LEAVE SCREEN. ENDCASE. ENDMODULE. " PAI INPUT
SAP Berater & Entwickler bei Inwerken AG
Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!
Letzte Artikel von Enno Wulff (Alle anzeigen)
- Interview mit Björn Schulz (Software-Heroes.com) - 3. September 2024
- Daten aus ALV ermitteln - 3. September 2024
- So lange es den SAPGUI noch gibt… - 27. Juni 2024
